with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 128;
		FirstVisibleDate := '1/1/2001';
		Bars.Item['Task'].Color := $f0f0f0;
	end;
	with Items do
	begin
		hSummary := AddItem('Summary');
		AddBar(hSummary,'Project Summary','1/2/2001','1/2/2001','',Null);
		hTask := InsertItem(hSummary,Null,'Task A');
		AddBar(hTask,'Task','1/2/2001','1/5/2001','K1',Null);
		hTask := InsertItem(hSummary,Null,'Task B');
		AddBar(hTask,'Task','1/4/2001','1/8/2001','K2',Null);
		hTask := InsertItem(hSummary,Null,'Task C');
		AddBar(hTask,'Task','1/6/2001','1/10/2001','K3',Null);
		ExpandItem[hSummary] := True;
		DefineSummaryBars(hSummary,'',-1,'<*>');
		ItemBar[hSummary,'',EXG2ANTTLib_TLB.exSummaryBarBackColor] := OleVariant(65536);
		ItemBar[hSummary,'',EXG2ANTTLib_TLB.exSummaryBarBackColorTransparent] := OleVariant(50);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '1/1/2002';
		SelBarColor := $7f0000ff;
		PaneWidth[False] := 48;
	end;
	Columns.Add('Task');
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2002','1/4/2002','A',Null);
		AddBar(AddItem('Task 2'),'Task','1/6/2002','1/10/2002','B',Null);
		AddBar(AddItem('Task 3'),'Task','1/11/2002','1/14/2002','C',Null);
		ItemBar[0,'<A B>',EXG2ANTTLib_TLB.exBarSelected] := OleVariant(True);
	end;
	EndUpdate();
end

// BarResize event - Occurs when a bar is moved or resized.
procedure TForm1.G2antt1BarResize(ASender: TObject; Item : HITEM;Key : OleVariant);
begin
	with G2antt1 do
	begin
		Items.SchedulePDM(Item,OleVariant(Key));
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 96;
		Bars.Item['Task'].Def[EXG2ANTTLib_TLB.exBarCaption] := '<%=int(%269) > 0 ? (`<b>` + %269 + `</b>`) : ``%>';
	end;
	with Items do
	begin
		hSummary1 := AddItem('Summary');
		ItemBold[hSummary1] := True;
		AddBar(hSummary1,'Summary','1/2/2001','1/2/2001','sum',Null);
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001',Null,Null);
		DefineSummaryBars(hSummary1,'sum',h1,'');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/2/2001','1/4/2001',Null,Null);
		DefineSummaryBars(hSummary1,'sum',h2,'');
		AddLink('L1',h1,'',h2,'');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/2/2001','1/4/2001',Null,Null);
		DefineSummaryBars(hSummary1,'sum',h3,'');
		AddLink('L2',h2,'',h3,'');
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/2/2001','1/4/2001',Null,Null);
		DefineSummaryBars(hSummary1,'sum',h4,'');
		AddLink('L3',h1,'',h4,'');
		DefSchedulePDM[EXG2ANTTLib_TLB.exPDMCriticalPathBarColor] := OleVariant(65280);
		SchedulePDM(h1,'');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '12/25/2000';
		PaneWidth[False] := 48;
		LevelCount := 2;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/2/2001','1/5/2001','K2',Null);
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/2/2001','1/5/2001','K3',Null);
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/2/2001','1/5/2001','K4',Null);
		h5 := AddItem('Task 5');
		AddBar(h5,'Task','1/2/2001','1/5/2001','K5',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		AddLink('L2',h2,'K2',h3,'K3');
		AddLink('L3',h3,'K3',h4,'K4');
		AddLink('L4',h4,'K4',h5,'K5');
		Link['L4',EXG2ANTTLib_TLB.exLinkStartPos] := OleVariant(0);
		Link['L4',EXG2ANTTLib_TLB.exLinkEndPos] := OleVariant(2);
		Link['L4',EXG2ANTTLib_TLB.exLinkColor] := OleVariant(65280);
		SchedulePDM(0,'K5');
	end;
	Chart.ShowLinks := EXG2ANTTLib_TLB.exShowExtendedLinks;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	Debug := True;
	with Chart do
	begin
		FirstVisibleDate := '9/20/2006';
		LevelCount := 2;
		PaneWidth[False] := 96;
	end;
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','9/21/2006','9/24/2006','K1',Null);
		AddBar(AddItem('Task 2'),'Task','9/22/2006','9/25/2006','K2',Null);
		AddBar(AddItem('Task 3'),'Task','9/23/2006','9/26/2006','K3',Null);
		h := ItemByIndex[1];
		ItemBold[h] := True;
		OutputDebugString( 'Start of ' );
		OutputDebugString( FirstItemBar[h] );
		OutputDebugString( ItemBar[h,FirstItemBar[h],EXG2ANTTLib_TLB.exBarStart] );
		OutputDebugString( 'End of  ' );
		OutputDebugString( FirstItemBar[h] );
		OutputDebugString( ItemBar[h,FirstItemBar[h],EXG2ANTTLib_TLB.exBarEnd] );
	end;
	EndUpdate();
end

with G2antt1 do
begin
	with Chart do
	begin
		FirstWeekDay := LocFirstWeekDay;
		MonthNames := LocMonthNames;
		WeekDays := LocWeekDays;
		AMPM := LocAMPM;
		LevelCount := 2;
		PaneWidth[False] := 0;
		UnitScale := EXG2ANTTLib_TLB.exDay;
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
	end;
	EndUpdate();
	with (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print'))) as EXPRINTLib_TLB.Print) do
	begin
		Caption := 'This is your new caption for print and print preview';
		AutoRelease := False;
		PrintExt := (IUnknown(G2antt1.DefaultInterface) as EXG2ANTTLib_TLB.G2antt);
		Preview();
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
	end;
	EndUpdate();
	with (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print'))) as EXPRINTLib_TLB.Print) do
	begin
		Settings[0] := OleVariant(9);
		AutoRelease := False;
		PrintExt := (IUnknown(G2antt1.DefaultInterface) as EXG2ANTTLib_TLB.G2antt);
		Preview();
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
	end;
	EndUpdate();
	with (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print'))) as EXPRINTLib_TLB.Print) do
	begin
		PageOrientation := 2;
		AutoRelease := False;
		PrintExt := (IUnknown(G2antt1.DefaultInterface) as EXG2ANTTLib_TLB.G2antt);
		Preview();
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	ScrollBySingleLine := True;
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 48;
		Bars.Copy('Task','Default-Task');
		Bars.Item['Task'].OverlaidType := Integer(EXG2ANTTLib_TLB.exOverlaidBarsIncludeCaption) Or Integer(EXG2ANTTLib_TLB.exOverlaidBarsStackAutoArrange) Or Integer(EXG2ANTTLib_TLB.exOverlaidBarsStack);
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2001','1/4/2001','A1','task');
		ItemBar[h,'A1',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
		AddBar(h,'Task','1/6/2001','1/10/2001','A2','task');
		ItemBar[h,'A2',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(16);
		h := AddItem('Task 2');
		AddBar(h,'Default-Task','1/2/2001','1/4/2001','A1','task');
		ItemBar[h,'A1',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
		AddBar(h,'Default-Task','1/6/2001','1/10/2001','A2','task');
		ItemBar[h,'A2',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(16);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Clip');
	ScrollBySingleLine := True;
	DrawGridLines := EXG2ANTTLib_TLB.exRowLines;
	with Chart do
	begin
		AllowResizeChart := Integer(EXG2ANTTLib_TLB.exAllowResizeChartMiddle) Or Integer(EXG2ANTTLib_TLB.exAllowResizeChartHeader);
		DrawGridLines := EXG2ANTTLib_TLB.exRowLines;
		FirstVisibleDate := '12/23/2000';
		LevelCount := 2;
		PaneWidth[False] := 216;
		with Bars.Item['Task'] do
		begin
			Pattern := EXG2ANTTLib_TLB.exPatternBox;
			Color := $a4a4a4;
			StartColor := $f0f0f0;
			EndColor := StartColor;
			OverlaidType := Integer(EXG2ANTTLib_TLB.exOverlaidBarsIncludeCaption) Or Integer(EXG2ANTTLib_TLB.exOverlaidBarsStackAutoArrange) Or Integer(EXG2ANTTLib_TLB.exOverlaidBarsStack);
			Height := 15;
		end;
		MinUnitWidth := UnitWidth;
	end;
	with Items do
	begin
		h := AddItem('no clip, (0-2)');
		AddBar(h,'Task','1/2/2001','1/4/2001','K1',Null);
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarExtraCaption] := 'no clip, right(<b>2</b>)';
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(2);
		AddBar(h,'Task','1/2/2001','1/4/2001','K2',Null);
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarExtraCaption] := 'no clip, center(<b>1</b>)';
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(1);
		AddBar(h,'Task','1/2/2001','1/4/2001','K3','');
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarExtraCaption] := 'no clip, left(<b>0</b>)';
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(0);
		h := AddItem('clip, inside (3-5)');
		AddBar(h,'Task','12/28/2000','1/8/2001','K1',Null);
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarExtraCaption] := 'clip, inside, right(<b>5</b>)';
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(5);
		AddBar(h,'Task','12/28/2000','1/8/2001','K2',Null);
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarExtraCaption] := 'clip, inside, center(<b>4</b>)';
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(4);
		AddBar(h,'Task','12/28/2000','1/8/2001','K3',Null);
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarExtraCaption] := 'clip, inside, left(<b>3</b>)';
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(3);
		h := AddItem('hide on min width, clip if not fit, inside (6-8)');
		AddBar(h,'Task','12/26/2000','1/10/2001','K1',Null);
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarExtraCaption] := 'hide on min width, clip if not fit, inside, right(<b>8</b>)';
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(8);
		AddBar(h,'Task','12/26/2000','1/10/2001','K2',Null);
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarExtraCaption] := 'hide on min width, clip if not fit, inside, center(<b>7</b>)';
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(7);
		AddBar(h,'Task','12/26/2000','1/10/2001','K3',Null);
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarExtraCaption] := 'hide on min width, clip if not fit, inside, left(<b>6</b>)';
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(6);
		h := AddItem('hide if not fit, no clip, inside (9-11)');
		AddBar(h,'Task','12/28/2000','1/8/2001','K1',Null);
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarExtraCaption] := 'hide if not fit, no clip, inside, right(<b>11</b>)';
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(11);
		AddBar(h,'Task','12/28/2000','1/8/2001','K2',Null);
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarExtraCaption] := 'hide if not fit, no clip, center(<b>10</b>)';
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(10);
		AddBar(h,'Task','12/28/2000','1/8/2001','K3',Null);
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarExtraCaption] := 'hide if not fit, no clip, inside, left(<b>9</b>)';
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(9);
		h := AddItem('no clip, inside, outside (12-14)');
		AddBar(h,'Task','12/28/2000','1/8/2001','K1',Null);
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarExtraCaption] := 'no clip, inside, outside, right(<b>14</b>)';
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(14);
		AddBar(h,'Task','12/28/2000','1/8/2001','K2',Null);
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarExtraCaption] := 'no clip, inside, outside, center(<b>13</b>)';
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(13);
		AddBar(h,'Task','12/28/2000','1/8/2001','K3',Null);
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarExtraCaption] := 'no clip, inside, outside, left(<b>12</b>)';
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(12);
		h := AddItem('no clip, outside (16-18)');
		AddBar(h,'Task','12/30/2000','1/6/2001','K1',Null);
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarExtraCaption] := 'no clip, outside, right(<b>18</b>)';
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(18);
		AddBar(h,'Task','12/30/2000','1/6/2001','K2',Null);
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarExtraCaption] := 'no clip, outside, center(<b>17</b>)';
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(17);
		AddBar(h,'Task','12/30/2000','1/6/2001','K3',Null);
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarExtraCaption] := 'no clip, outside, left(<b>16</b>)';
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(16);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	AntiAliasing := True;
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		NonworkingDays := 0;
		LinksWidth := 2;
	end;
	with Items do
	begin
		AddItem('');
		h3 := AddItem('Task 3');
		AddItem('');
		AddBar(h3,'Task','1/13/2001','1/15/2001','K3',Null);
		h1 := AddItem('Task 1');
		AddItem('');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/7/2001','1/9/2001','K2',Null);
		AddItem('');
		AddLink('L1',h1,'K1',h2,'K2');
		AddLink('L2',h2,'K2',h3,'K3');
		Link['<*>',EXG2ANTTLib_TLB.exLinkShowRound] := OleVariant(5);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	AntiAliasing := True;
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		NonworkingDays := 0;
		LinksWidth := 2;
	end;
	with Items do
	begin
		AddItem('');
		h3 := AddItem('Task 3');
		AddItem('');
		AddBar(h3,'Task','1/13/2001','1/15/2001','K3',Null);
		h1 := AddItem('Task 1');
		AddItem('');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/7/2001','1/9/2001','K2',Null);
		AddItem('');
		AddLink('L1',h1,'K1',h2,'K2');
		AddLink('L2',h2,'K2',h3,'K3');
		Link['<*>',EXG2ANTTLib_TLB.exLinkShowRound] := OleVariant(4);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	AntiAliasing := True;
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		NonworkingDays := 0;
		LinksWidth := 2;
	end;
	with Items do
	begin
		AddItem('');
		h3 := AddItem('Task 3');
		AddItem('');
		AddBar(h3,'Task','1/13/2001','1/15/2001','K3',Null);
		h1 := AddItem('Task 1');
		AddItem('');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/7/2001','1/9/2001','K2',Null);
		AddItem('');
		AddLink('L1',h1,'K1',h2,'K2');
		AddLink('L2',h2,'K2',h3,'K3');
		Link['<*>',EXG2ANTTLib_TLB.exLinkShowRound] := OleVariant(3);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	AntiAliasing := True;
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		NonworkingDays := 0;
		LinksWidth := 2;
	end;
	with Items do
	begin
		AddItem('');
		h3 := AddItem('Task 3');
		AddItem('');
		AddBar(h3,'Task','1/13/2001','1/15/2001','K3',Null);
		h1 := AddItem('Task 1');
		AddItem('');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/7/2001','1/9/2001','K2',Null);
		AddItem('');
		AddLink('L1',h1,'K1',h2,'K2');
		AddLink('L2',h2,'K2',h3,'K3');
		Link['<*>',EXG2ANTTLib_TLB.exLinkShowRound] := OleVariant(2);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	AntiAliasing := True;
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		NonworkingDays := 0;
		LinksWidth := 2;
	end;
	with Items do
	begin
		AddItem('');
		h3 := AddItem('Task 3');
		AddItem('');
		AddBar(h3,'Task','1/13/2001','1/15/2001','K3',Null);
		h1 := AddItem('Task 1');
		AddItem('');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/7/2001','1/9/2001','K2',Null);
		AddItem('');
		AddLink('L1',h1,'K1',h2,'K2');
		AddLink('L2',h2,'K2',h3,'K3');
		Link['<*>',EXG2ANTTLib_TLB.exLinkShowRound] := OleVariant(1);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	AntiAliasing := True;
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		NonworkingDays := 0;
		LinksWidth := 2;
	end;
	with Items do
	begin
		AddItem('');
		h3 := AddItem('Task 3');
		AddItem('');
		AddBar(h3,'Task','1/13/2001','1/15/2001','K3',Null);
		h1 := AddItem('Task 1');
		AddItem('');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/7/2001','1/9/2001','K2',Null);
		AddItem('');
		AddLink('L1',h1,'K1',h2,'K2');
		AddLink('L2',h2,'K2',h3,'K3');
		Link['<*>',EXG2ANTTLib_TLB.exLinkShowRound] := OleVariant(-1);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	AntiAliasing := True;
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		NonworkingDays := 0;
		LinksWidth := 2;
	end;
	with Items do
	begin
		AddItem('');
		h3 := AddItem('Task 3');
		AddItem('');
		AddBar(h3,'Task','1/13/2001','1/15/2001','K3',Null);
		h1 := AddItem('Task 1');
		AddItem('');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/7/2001','1/9/2001','K2',Null);
		AddItem('');
		AddLink('L1',h1,'K1',h2,'K2');
		AddLink('L2',h2,'K2',h3,'K3');
		Link['<*>',EXG2ANTTLib_TLB.exLinkShowRound] := OleVariant(0);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	BackColorLevelHeader := BackColor;
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '9/20/2006';
		PaneWidth[False] := 64;
		with Bars.Copy('Progress','TProgressD') do
		begin
			Def[EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
			Shape := EXG2ANTTLib_TLB.exShapeThinDown;
		end;
		with Bars.Copy('Progress','TProgressC') do
		begin
			Def[EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
		end;
		with Bars.Copy('Progress','TProgressU') do
		begin
			Def[EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
			Shape := EXG2ANTTLib_TLB.exShapeThinUp;
		end;
	end;
	with Items do
	begin
		h := AddItem('Task');
		AddBar(h,'Task','9/25/2006','9/30/2006','T1',Null);
		AddBar(h,'TProgressU','9/25/2006','10/4/2006','TP1',Null);
		GroupBars(h,'T1',True,h,'TP1',True,OleVariant(3),Null);
		ItemBar[h,'TP1',EXG2ANTTLib_TLB.exBarCaption] := '<font ;6>progress up';
		h := AddItem('Task');
		AddBar(h,'Task','9/26/2006','10/1/2006','T2',Null);
		AddBar(h,'TProgressC','9/26/2006','10/5/2006','TP2',Null);
		GroupBars(h,'T2',True,h,'TP2',True,OleVariant(3),Null);
		ItemBar[h,'TP2',EXG2ANTTLib_TLB.exBarCaption] := '<font ;6>progress center';
		h := AddItem('Task');
		AddBar(h,'Task','9/25/2006','9/30/2006','T3',Null);
		AddBar(h,'TProgressD','9/25/2006','10/6/2006','TP3',Null);
		GroupBars(h,'T3',True,h,'TP3',True,OleVariant(3),Null);
		ItemBar[h,'TP3',EXG2ANTTLib_TLB.exBarCaption] := '<font ;6>progress down';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	Indent := 11;
	HasLines := EXG2ANTTLib_TLB.exSolidLine;
	Items.AllowCellValueToItemBar := True;
	with Columns do
	begin
		Add('Tasks');
		with (IUnknown(Add('Start')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(544);
			Editor.EditType := EXG2ANTTLib_TLB.DateType;
			LevelKey := OleVariant(1);
		end;
		with (IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(546);
			Editor.EditType := EXG2ANTTLib_TLB.DateType;
			LevelKey := OleVariant(1);
		end;
	end;
	with Chart do
	begin
		FirstVisibleDate := '9/20/2006';
		AllowLinkBars := False;
		AllowCreateBar := EXG2ANTTLib_TLB.exNoCreateBar;
		LevelCount := 2;
		PaneWidth[False] := 224;
		with Bars do
		begin
			with Add('Underline') do
			begin
				Color := $ff0000;
				Shape := EXG2ANTTLib_TLB.exShapeThinDown;
			end;
			with Add('Task:Underline') do
			begin
				Shortcut := 'T';
				Def[EXG2ANTTLib_TLB.exBarKeepWorkingCount] := OleVariant(True);
			end;
		end;
	end;
	with Items do
	begin
		h := AddItem('Project');
		AddBar(h,'Summary','9/21/2006','10/3/2006',Null,Null);
		h1 := InsertItem(h,Null,'Task 1');
		AddBar(h1,'T','9/21/2006','9/24/2006',Null,Null);
		h2 := InsertItem(h,Null,'Task 2');
		AddBar(h2,'T','9/24/2006','9/28/2006',Null,Null);
		h3 := InsertItem(h,Null,'Task 3');
		AddBar(h3,'T','9/28/2006','10/3/2006',Null,Null);
		DefineSummaryBars(h,'',h1,'');
		DefineSummaryBars(h,'',h2,'');
		DefineSummaryBars(h,'',h3,'');
		ExpandItem[h] := True;
		ItemBold[h] := True;
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarMoveStart] := '9/22/2006';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	Indent := 11;
	HasLines := EXG2ANTTLib_TLB.exSolidLine;
	Items.AllowCellValueToItemBar := True;
	with Columns do
	begin
		Add('Tasks');
		with (IUnknown(Add('Start')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(544);
			Editor.EditType := EXG2ANTTLib_TLB.DateType;
			LevelKey := OleVariant(1);
		end;
		with (IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(545);
			Editor.EditType := EXG2ANTTLib_TLB.DateType;
			LevelKey := OleVariant(1);
		end;
	end;
	with Chart do
	begin
		FirstVisibleDate := '9/20/2006';
		AllowLinkBars := False;
		AllowCreateBar := EXG2ANTTLib_TLB.exNoCreateBar;
		LevelCount := 2;
		PaneWidth[False] := 224;
	end;
	with Items do
	begin
		h := AddItem('Project');
		AddBar(h,'Summary','9/21/2006','10/3/2006',Null,Null);
		h1 := InsertItem(h,Null,'Task 1');
		AddBar(h1,'Task','9/21/2006','9/24/2006',Null,Null);
		h2 := InsertItem(h,Null,'Task 2');
		AddBar(h2,'Task','9/24/2006','9/28/2006',Null,Null);
		h3 := InsertItem(h,Null,'Task 3');
		AddBar(h3,'Task','9/28/2006','10/3/2006',Null,Null);
		DefineSummaryBars(h,'',h1,'');
		DefineSummaryBars(h,'',h2,'');
		DefineSummaryBars(h,'',h3,'');
		ExpandItem[h] := True;
		ItemBold[h] := True;
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarMoveStart] := '9/22/2006';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Debug := True;
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		AddBar(AddItem('Task A.1'),'Task','1/1/2001','1/6/2001','A',Null);
		AddBar(AddItem('Task A.2'),'Task','1/2/2001','1/7/2001','A',Null);
		AddBar(AddItem('Task B.1'),'Task','1/3/2001','1/8/2001','B',Null);
		AddBar(AddItem('Task B.2'),'Task','1/4/2001','1/9/2001','B',Null);
		ItemBar[0,'<A*>',EXG2ANTTLib_TLB.exBarMoveEndInclusive] := '1/2/2001';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Debug := True;
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		AddBar(AddItem('Task A.1'),'Task','1/1/2001','1/6/2001','A',Null);
		AddBar(AddItem('Task A.2'),'Task','1/2/2001','1/7/2001','A',Null);
		AddBar(AddItem('Task B.1'),'Task','1/3/2001','1/8/2001','B',Null);
		AddBar(AddItem('Task B.2'),'Task','1/4/2001','1/9/2001','B',Null);
		ItemBar[0,'<*>',EXG2ANTTLib_TLB.exBarMoveEndInclusive] := '1/2/2001';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Debug := True;
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		AddBar(AddItem('Task A.1'),'Task','1/1/2001','1/6/2001','A',Null);
		AddBar(AddItem('Task A.2'),'Task','1/2/2001','1/7/2001','A',Null);
		AddBar(AddItem('Task B.1'),'Task','1/3/2001','1/8/2001','B',Null);
		AddBar(AddItem('Task B.2'),'Task','1/4/2001','1/9/2001','B',Null);
		ItemBar[0,'<A*>',EXG2ANTTLib_TLB.exBarMoveEnd] := '1/2/2001';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Debug := True;
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		AddBar(AddItem('Task A.1'),'Task','1/1/2001','1/6/2001','A',Null);
		AddBar(AddItem('Task A.2'),'Task','1/2/2001','1/7/2001','A',Null);
		AddBar(AddItem('Task B.1'),'Task','1/3/2001','1/8/2001','B',Null);
		AddBar(AddItem('Task B.2'),'Task','1/4/2001','1/9/2001','B',Null);
		ItemBar[0,'<*>',EXG2ANTTLib_TLB.exBarMoveEnd] := '1/2/2001';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Debug := True;
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		AddBar(AddItem('Task A.1'),'Task','1/1/2001','1/6/2001','A',Null);
		AddBar(AddItem('Task A.2'),'Task','1/2/2001','1/7/2001','A',Null);
		AddBar(AddItem('Task B.1'),'Task','1/3/2001','1/8/2001','B',Null);
		AddBar(AddItem('Task B.2'),'Task','1/4/2001','1/9/2001','B',Null);
		ItemBar[0,'<A*>',EXG2ANTTLib_TLB.exBarMoveStart] := '1/2/2001';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Debug := True;
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		AddBar(AddItem('Task A.1'),'Task','1/1/2001','1/6/2001','A',Null);
		AddBar(AddItem('Task A.2'),'Task','1/2/2001','1/7/2001','A',Null);
		AddBar(AddItem('Task B.1'),'Task','1/3/2001','1/8/2001','B',Null);
		AddBar(AddItem('Task B.2'),'Task','1/4/2001','1/9/2001','B',Null);
		ItemBar[0,'<*>',EXG2ANTTLib_TLB.exBarMoveStart] := '1/2/2001';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Debug := True;
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		AddBar(AddItem('Task A.1'),'Task','1/1/2001','1/6/2001','A',Null);
		AddBar(AddItem('Task A.2'),'Task','1/2/2001','1/7/2001','A',Null);
		AddBar(AddItem('Task B.1'),'Task','1/3/2001','1/8/2001','B',Null);
		AddBar(AddItem('Task B.2'),'Task','1/4/2001','1/9/2001','B',Null);
		ItemBar[0,'<A*>',EXG2ANTTLib_TLB.exBarMove] := OleVariant(2);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Debug := True;
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		AddBar(AddItem('Task A.1'),'Task','1/1/2001','1/6/2001','A',Null);
		AddBar(AddItem('Task A.2'),'Task','1/2/2001','1/7/2001','A',Null);
		AddBar(AddItem('Task B.1'),'Task','1/3/2001','1/8/2001','B',Null);
		AddBar(AddItem('Task B.2'),'Task','1/4/2001','1/9/2001','B',Null);
		ItemBar[0,'<*>',EXG2ANTTLib_TLB.exBarMove] := OleVariant(2);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/1/2001','1/6/2001','A',Null);
		ItemBar[h,'A',EXG2ANTTLib_TLB.exBarMoveEndInclusive] := '1/4/2001';
	end;
end

with G2antt1 do
begin
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/1/2001','1/6/2001','A',Null);
		ItemBar[h,'A',EXG2ANTTLib_TLB.exBarMoveEnd] := '1/4/2001';
	end;
end

with G2antt1 do
begin
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/1/2001','1/6/2001','A',Null);
		ItemBar[h,'A',EXG2ANTTLib_TLB.exBarMoveStart] := '1/4/2001';
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	HeaderHeight := 22;
	with Chart do
	begin
		FirstVisibleDate := '1/1/2016';
		PaneWidth[False] := 0;
		LevelCount := 2;
		DrawLevelSeparator := EXG2ANTTLib_TLB.exLevelSolidLine;
		AllowResizeChart := Integer(EXG2ANTTLib_TLB.exAllowResizeChartMiddle) Or Integer(EXG2ANTTLib_TLB.exAllowResizeChartHeader);
		MaxUnitWidth := 196;
		with Level[0] do
		begin
			Alignment := Integer(EXG2ANTTLib_TLB.exHOutside) Or Integer(EXG2ANTTLib_TLB.CenterAlignment);
			DrawTickLines := EXG2ANTTLib_TLB.exLevelSolidLine;
		end;
		with Level[1] do
		begin
			DrawTickLines := Integer(EXG2ANTTLib_TLB.exLevelMiddleLine) Or Integer(EXG2ANTTLib_TLB.exLevelDotLine);
			DrawTickLinesFrom(0,EXG2ANTTLib_TLB.exLevelSolidLine);
			BackColor := $f0f0f0;
		end;
		OverviewVisible := EXG2ANTTLib_TLB.exOverviewShowAllVisible;
		AllowOverviewZoom := EXG2ANTTLib_TLB.exAlwaysZoom;
		UnitWidth := 24;
		Label[EXG2ANTTLib_TLB.exSecond] := '';
		Label[EXG2ANTTLib_TLB.exMinute] := '';
		Label[EXG2ANTTLib_TLB.exHour] := '';
		Label[EXG2ANTTLib_TLB.exWeek] := '';
		Label[EXG2ANTTLib_TLB.exDay] := '<font ;6><%d%><|><%d%><|><%d%> <fgcolor=A0A0A0><off -4><%d1%><|><%d%> <fgcolor=A0A0A0><off -4><%d2%><|><%d%> <fgcolor=A0A0A0><of' + 
	'f -4><%d3%><|><%d%> <fgcolor=A0A0A0><off -4><%dddd%><||><||>4096';
		UnitScale := EXG2ANTTLib_TLB.exDay;
		ScrollTo(FirstVisibleDate,OleVariant(1));
	end;
	Columns.Add('Default');
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	Debug := True;
	LinesAtRoot := EXG2ANTTLib_TLB.exLinesAtRoot;
	ScrollBySingleLine := True;
	BackColorLevelHeader := BackColor;
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '9/20/2006';
		PaneWidth[False] := 96;
		Bars.Item['Task'].OverlaidType := EXG2ANTTLib_TLB.exOverlaidBarsStack;
	end;
	with Items do
	begin
		h := AddItem('Project');
		AddBar(h,'Summary','9/21/2006','10/4/2006',Null,Null);
		h1 := InsertItem(h,Null,'Tasks');
		AddBar(h1,'Task','9/21/2006','9/26/2006','h1',Null);
		h2 := h1;
		AddBar(h2,'Task','9/25/2006','9/30/2006','h2',Null);
		AddLink('L1',h1,'h1',h2,'h2');
		h3 := h1;
		AddBar(h3,'Task','9/29/2006','10/4/2006','h3',Null);
		AddLink('L2',h2,'h2',h3,'h3');
		DefineSummaryBars(h,'',h1,'h1');
		DefineSummaryBars(h,'',h2,'h2');
		DefineSummaryBars(h,'',h3,'h3');
		ExpandItem[h] := True;
		ItemBold[h] := True;
		GroupBars(h1,'h1',False,h2,'h2',True,OleVariant(31),'0;5;-1');
		GroupBars(h2,'h2',False,h3,'h3',True,OleVariant(31),'0;5;-1');
	end;
	EndUpdate();
end

// BarResizing event - Occurs when a bar is moving or resizing.
procedure TForm1.G2antt1BarResizing(ASender: TObject; Item : HITEM;Key : OleVariant);
begin
	with G2antt1 do
	begin
		Items.SchedulePDM(Item,OleVariant(Key));
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 22;
	HeaderHeight := DefaultItemHeight;
	BackColorLevelHeader := BackColor;
	AntiAliasing := True;
	Columns.Add('Task');
	with Chart do
	begin
		LinksStyle := EXG2ANTTLib_TLB.exLinkSolid;
		LinksColor := $808080;
		LevelCount := 2;
		FirstVisibleDate := '12/28/2000';
		PaneWidth[False] := 48;
		with Bars.Item['Task'] do
		begin
			Def[EXG2ANTTLib_TLB.exBarKeepWorkingCount] := OleVariant(True);
			Def[EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
			Color := $0;
			StartColor := $bebebe;
			EndColor := StartColor;
			Pattern := EXG2ANTTLib_TLB.exPatternBox;
		end;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/5/2001','K1','FS lag=0 (default)');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/2/2001','1/5/2001','K2','FS lag=4');
		AddLink('L1',h1,'K1',h2,'K2');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/2/2001','1/5/2001','K3','FS lag=-1');
		AddLink('L2',h2,'K2',h3,'K3');
		Link['L2',EXG2ANTTLib_TLB.exLinkPDMWorkingDelay] := OleVariant(4);
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/2/2001','1/5/2001','K4',Null);
		AddLink('L3',h3,'K3',h4,'K4');
		Link['L3',EXG2ANTTLib_TLB.exLinkPDMWorkingDelay] := OleVariant(-1);
		SchedulePDM(0,'K1');
	end;
	EndUpdate();
end

// BarResizing event - Occurs when a bar is moving or resizing.
procedure TForm1.G2antt1BarResizing(ASender: TObject; Item : HITEM;Key : OleVariant);
begin
	with G2antt1 do
	begin
		Items.SchedulePDM(Item,OleVariant(Key));
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 22;
	HeaderHeight := DefaultItemHeight;
	BackColorLevelHeader := BackColor;
	AntiAliasing := True;
	Columns.Add('Task');
	with Chart do
	begin
		LinksStyle := EXG2ANTTLib_TLB.exLinkSolid;
		LinksColor := $808080;
		LevelCount := 2;
		NonworkingDays := 0;
		FirstVisibleDate := '12/28/2000';
		PaneWidth[False] := 48;
		with Bars.Item['Task'] do
		begin
			Def[EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
			Color := $0;
			StartColor := $bebebe;
			EndColor := StartColor;
			Pattern := EXG2ANTTLib_TLB.exPatternBox;
		end;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/5/2001','K1','FS lag=0 (default)');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/2/2001','1/5/2001','K2','FS lag=4');
		AddLink('L1',h1,'K1',h2,'K2');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/2/2001','1/5/2001','K3','FS lag=-1');
		AddLink('L2',h2,'K2',h3,'K3');
		Link['L2',EXG2ANTTLib_TLB.exLinkPDMDelay] := OleVariant(4);
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/2/2001','1/5/2001','K4',Null);
		AddLink('L3',h3,'K3',h4,'K4');
		Link['L3',EXG2ANTTLib_TLB.exLinkPDMDelay] := OleVariant(-1);
		SchedulePDM(0,'K1');
	end;
	EndUpdate();
end

// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
procedure TForm1.G2antt1AddGroupItem(ASender: TObject; Item : HITEM);
begin
	with G2antt1 do
	begin
		with Items do
		begin
			AddBar(Item,'Summary',CellValue[OleVariant(Item),OleVariant(2)],CellValue[OleVariant(Item),OleVariant(4)],Null,Null);
			DefineSummaryBars(Item,'',-3,'');
		end;
	end
end;

// AddItem event - Occurs after a new Item has been inserted to Items collection.
procedure TForm1.G2antt1AddItem(ASender: TObject; Item : HITEM);
begin
	with G2antt1 do
	begin
		with Items do
		begin
			AddBar(Item,'Task',CellValue[OleVariant(Item),OleVariant(2)],CellValue[OleVariant(Item),OleVariant(4)],Null,Null);
		end;
	end
end;

// MouseDown event - Occurs when the user presses a mouse button.
procedure TForm1.G2antt1MouseDown(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		i := ItemFromPoint[-1,-1,c,hit];
		FullRowSelect := Columns.Item[OleVariant(c)].Data;
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	HeaderHeight := 22;
	HeaderAppearance := EXG2ANTTLib_TLB.Flat;
	BackColorLock := RGB(240,240,240);
	BackColorHeader := BackColorLock;
	HasLines := EXG2ANTTLib_TLB.exNoLine;
	ColumnAutoResize := False;
	SortBarVisible := False;
	AllowGroupBy := True;
	ReadOnly := EXG2ANTTLib_TLB.exReadOnly;
	ShowFocusRect := False;
	CountLockedColumns := 1;
	AutoDrag := EXG2ANTTLib_TLB.exAutoDragScroll;
	SingleSort := False;
	ColumnsAllowSizing := True;
	DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
	GridLineStyle := EXG2ANTTLib_TLB.exGridLinesSolid;
	GridLineColor := RGB(220,220,220);
	Chart.FirstVisibleDate := '9/1/1994';
	Chart.LevelCount := 2;
	Chart.PaneWidth[False] := 256;
	BackColorSortBar := BackColor;
	ColumnAutoResize := False;
	rs := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset'))) as ADODB_TLB.Recordset);
	with rs do
	begin
		Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb',3,3,Null);
	end;
	DataSource := (IUnknown(rs) as ADODB_TLB.Recordset);
	Columns.Item[OleVariant(0)].Data := OleVariant(-1);
	Layout := 'singlesort="C5:1";multiplesort=" C1:2"';
	EndUpdate();
end

// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
procedure TForm1.G2antt1BeforeExpandItem(ASender: TObject; Item : HITEM;var Cancel : OleVariant);
begin
	with G2antt1 do
	begin
		EventParam[1] := OleVariant(True);
	end
end;

// Event event - Notifies the application once the control fires an event.
procedure TForm1.G2antt1Event(ASender: TObject; EventID : Integer);
begin
	with G2antt1 do
	begin
		OutputDebugString( EventParam[-2] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	LinesAtRoot := EXG2ANTTLib_TLB.exLinesAtRoot;
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root A');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root B');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		PaneWidth[False] := 128;
		LevelCount := 2;
		MarkSelectDateColor := BackColor;
		MarkTodayColor := BackColor;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Debug := True;
	with Chart do
	begin
		PaneWidth[False] := 128;
		LevelCount := 2;
		FirstVisibleDate := '12/31/2015';
	end;
	BackColorAlternate := RGB(250,250,250);
	ShowLockedItems := True;
	Columns.Add('Column');
	with (IUnknown(Columns.Add('Find')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
		Visible := False;
		FormatColumn := 'int(value) = 0 ? `` : ` <fgcolor=FF0000><b>found here ` ';
	end;
	Chart.ColumnsFormatLevel := '1';
	with Items do
	begin
		LockedItemCount[EXG2ANTTLib_TLB.exTop] := 3;
		h := LockedItem[EXG2ANTTLib_TLB.exTop,0];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-top 1';
		AddBar(h,'Task','1/4/2016','1/8/2016','T1',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exTop,1];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-top 2';
		AddBar(h,'Task','1/5/2016','1/9/2016','T2',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exTop,2];
		SelectItem[h] := False;
		ItemDivider[h] := 0;
		ItemHeight[h] := 2;
		AddBar(AddItem('un-locked item 1'),'Task','1/4/2016','1/8/2016','T3',Null);
		AddBar(AddItem('un-locked item 2'),'Task','1/5/2016','1/9/2016','T4',Null);
		LockedItemCount[EXG2ANTTLib_TLB.exMiddle] := 3;
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,0];
		SelectItem[h] := False;
		ItemDivider[h] := 0;
		ItemHeight[h] := 2;
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,1];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-bottom 1';
		AddBar(h,'Task','1/4/2016','1/8/2016','T5',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,2];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-bottom 2';
		AddBar(h,'Task','1/5/2016','1/9/2016','T6',Null);
	end;
	with Items do
	begin
		h := FindBar['T4',OleVariant(0)];
		ItemBar[h,FirstItemBar[h],EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(h);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Debug := True;
	with Chart do
	begin
		PaneWidth[False] := 128;
		LevelCount := 2;
		FirstVisibleDate := '12/31/2015';
	end;
	BackColorAlternate := RGB(250,250,250);
	ShowLockedItems := True;
	Columns.Add('Column');
	with (IUnknown(Columns.Add('Find')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
		Visible := False;
		FormatColumn := 'int(value) = 0 ? `` : ` <fgcolor=FF0000><b>found here ` ';
	end;
	Chart.ColumnsFormatLevel := '1';
	with Items do
	begin
		LockedItemCount[EXG2ANTTLib_TLB.exTop] := 3;
		h := LockedItem[EXG2ANTTLib_TLB.exTop,0];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-top 1';
		AddBar(h,'Task','1/4/2016','1/8/2016','T1',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exTop,1];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-top 2';
		AddBar(h,'Task','1/5/2016','1/9/2016','T2',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exTop,2];
		SelectItem[h] := False;
		ItemDivider[h] := 0;
		ItemHeight[h] := 2;
		AddBar(AddItem('un-locked item 1'),'Task','1/4/2016','1/8/2016','T3',Null);
		AddBar(AddItem('un-locked item 2'),'Task','1/5/2016','1/9/2016','T4',Null);
		LockedItemCount[EXG2ANTTLib_TLB.exMiddle] := 3;
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,0];
		SelectItem[h] := False;
		ItemDivider[h] := 0;
		ItemHeight[h] := 2;
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,1];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-bottom 1';
		AddBar(h,'Task','1/4/2016','1/8/2016','T5',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,2];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-bottom 2';
		AddBar(h,'Task','1/5/2016','1/9/2016','T6',Null);
	end;
	with Items do
	begin
		h := FindBar['T6',OleVariant(-4)];
		ItemBar[h,FirstItemBar[h],EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(h);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Debug := True;
	with Chart do
	begin
		PaneWidth[False] := 128;
		LevelCount := 2;
		FirstVisibleDate := '12/31/2015';
	end;
	BackColorAlternate := RGB(250,250,250);
	ShowLockedItems := True;
	Columns.Add('Column');
	with (IUnknown(Columns.Add('Find')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
		Visible := False;
		FormatColumn := 'int(value) = 0 ? `` : ` <fgcolor=FF0000><b>found here ` ';
	end;
	Chart.ColumnsFormatLevel := '1';
	with Items do
	begin
		LockedItemCount[EXG2ANTTLib_TLB.exTop] := 3;
		h := LockedItem[EXG2ANTTLib_TLB.exTop,0];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-top 1';
		AddBar(h,'Task','1/4/2016','1/8/2016','T1',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exTop,1];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-top 2';
		AddBar(h,'Task','1/5/2016','1/9/2016','T2',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exTop,2];
		SelectItem[h] := False;
		ItemDivider[h] := 0;
		ItemHeight[h] := 2;
		AddBar(AddItem('un-locked item 1'),'Task','1/4/2016','1/8/2016','T3',Null);
		AddBar(AddItem('un-locked item 2'),'Task','1/5/2016','1/9/2016','T4',Null);
		LockedItemCount[EXG2ANTTLib_TLB.exMiddle] := 3;
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,0];
		SelectItem[h] := False;
		ItemDivider[h] := 0;
		ItemHeight[h] := 2;
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,1];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-bottom 1';
		AddBar(h,'Task','1/4/2016','1/8/2016','T5',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,2];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-bottom 2';
		AddBar(h,'Task','1/5/2016','1/9/2016','T6',Null);
	end;
	with Items do
	begin
		h := FindBar['T1',OleVariant(-3)];
		ItemBar[h,FirstItemBar[h],EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(h);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Debug := True;
	with Chart do
	begin
		PaneWidth[False] := 128;
		LevelCount := 2;
		FirstVisibleDate := '12/31/2015';
	end;
	BackColorAlternate := RGB(250,250,250);
	ShowLockedItems := True;
	Columns.Add('Column');
	with (IUnknown(Columns.Add('Find')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
		Visible := False;
		FormatColumn := 'int(value) = 0 ? `` : ` <fgcolor=FF0000><b>found here ` ';
	end;
	Chart.ColumnsFormatLevel := '1';
	with Items do
	begin
		LockedItemCount[EXG2ANTTLib_TLB.exTop] := 3;
		h := LockedItem[EXG2ANTTLib_TLB.exTop,0];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-top 1';
		AddBar(h,'Task','1/4/2016','1/8/2016','T1',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exTop,1];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-top 2';
		AddBar(h,'Task','1/5/2016','1/9/2016','T2',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exTop,2];
		SelectItem[h] := False;
		ItemDivider[h] := 0;
		ItemHeight[h] := 2;
		AddBar(AddItem('un-locked item 1'),'Task','1/4/2016','1/8/2016','T3',Null);
		AddBar(AddItem('un-locked item 2'),'Task','1/5/2016','1/9/2016','T4',Null);
		LockedItemCount[EXG2ANTTLib_TLB.exMiddle] := 3;
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,0];
		SelectItem[h] := False;
		ItemDivider[h] := 0;
		ItemHeight[h] := 2;
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,1];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-bottom 1';
		AddBar(h,'Task','1/4/2016','1/8/2016','T5',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,2];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-bottom 2';
		AddBar(h,'Task','1/5/2016','1/9/2016','T6',Null);
	end;
	with Items do
	begin
		h := FindBar['T2',OleVariant(-2)];
		ItemBar[h,FirstItemBar[h],EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(h);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Debug := True;
	with Chart do
	begin
		PaneWidth[False] := 128;
		LevelCount := 2;
		FirstVisibleDate := '12/31/2015';
	end;
	BackColorAlternate := RGB(250,250,250);
	ShowLockedItems := True;
	Columns.Add('Column');
	with (IUnknown(Columns.Add('Find')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
		Visible := False;
		FormatColumn := 'int(value) = 0 ? `` : ` <fgcolor=FF0000><b>found here ` ';
	end;
	Chart.ColumnsFormatLevel := '1';
	with Items do
	begin
		LockedItemCount[EXG2ANTTLib_TLB.exTop] := 3;
		h := LockedItem[EXG2ANTTLib_TLB.exTop,0];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-top 1';
		AddBar(h,'Task','1/4/2016','1/8/2016','T1',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exTop,1];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-top 2';
		AddBar(h,'Task','1/5/2016','1/9/2016','T2',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exTop,2];
		SelectItem[h] := False;
		ItemDivider[h] := 0;
		ItemHeight[h] := 2;
		AddBar(AddItem('un-locked item 1'),'Task','1/4/2016','1/8/2016','T3',Null);
		AddBar(AddItem('un-locked item 2'),'Task','1/5/2016','1/9/2016','T4',Null);
		LockedItemCount[EXG2ANTTLib_TLB.exMiddle] := 3;
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,0];
		SelectItem[h] := False;
		ItemDivider[h] := 0;
		ItemHeight[h] := 2;
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,1];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-bottom 1';
		AddBar(h,'Task','1/4/2016','1/8/2016','T5',Null);
		h := LockedItem[EXG2ANTTLib_TLB.exMiddle,2];
		CellValue[OleVariant(h),OleVariant(0)] := 'locked-bottom 2';
		AddBar(h,'Task','1/5/2016','1/9/2016','T6',Null);
	end;
	with Items do
	begin
		h := FindBar['T5',OleVariant(-1)];
		ItemBar[h,FirstItemBar[h],EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		CellValue[OleVariant(h),OleVariant(1)] := OleVariant(h);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Clip');
	ScrollBySingleLine := True;
	DrawGridLines := EXG2ANTTLib_TLB.exRowLines;
	with Chart do
	begin
		AllowResizeChart := Integer(EXG2ANTTLib_TLB.exAllowResizeChartMiddle) Or Integer(EXG2ANTTLib_TLB.exAllowResizeChartHeader);
		DrawGridLines := EXG2ANTTLib_TLB.exRowLines;
		FirstVisibleDate := '12/23/2000';
		LevelCount := 2;
		PaneWidth[False] := 216;
		with Bars.Item['Task'] do
		begin
			Pattern := EXG2ANTTLib_TLB.exPatternBox;
			Color := $a4a4a4;
			StartColor := $f0f0f0;
			EndColor := StartColor;
			OverlaidType := Integer(EXG2ANTTLib_TLB.exOverlaidBarsIncludeCaption) Or Integer(EXG2ANTTLib_TLB.exOverlaidBarsStackAutoArrange) Or Integer(EXG2ANTTLib_TLB.exOverlaidBarsStack);
			Height := 15;
		end;
		MinUnitWidth := UnitWidth;
	end;
	with Items do
	begin
		h := AddItem('no clip, (0-2)');
		AddBar(h,'Task','1/2/2001','1/4/2001','K1','no clip, right(<b>2</b>)');
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(2);
		AddBar(h,'Task','1/2/2001','1/4/2001','K2','no clip, center(<b>1</b>)');
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(1);
		AddBar(h,'Task','1/2/2001','1/4/2001','K3','no clip, left(<b>0</b>)');
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(0);
		h := AddItem('clip, inside (3-5)');
		AddBar(h,'Task','12/28/2000','1/8/2001','K1','clip, inside, right(<b>5</b>)');
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(5);
		AddBar(h,'Task','12/28/2000','1/8/2001','K2','clip, inside, center(<b>4</b>)');
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(4);
		AddBar(h,'Task','12/28/2000','1/8/2001','K3','clip, inside, left(<b>3</b>)');
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(3);
		h := AddItem('hide on min width, clip if not fit, inside (6-8)');
		AddBar(h,'Task','12/26/2000','1/10/2001','K1','hide on min width, clip if not fit, inside, right(<b>8</b>)');
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(8);
		AddBar(h,'Task','12/26/2000','1/10/2001','K2','hide on min width, clip if not fit, inside, center(<b>7</b>)');
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(7);
		AddBar(h,'Task','12/26/2000','1/10/2001','K3','hide on min width, clip if not fit, inside, left(<b>6</b>)');
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(6);
		h := AddItem('hide if not fit, no clip, inside (9-11)');
		AddBar(h,'Task','12/28/2000','1/8/2001','K1','hide if not fit, no clip, inside, right(<b>11</b>)');
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(11);
		AddBar(h,'Task','12/28/2000','1/8/2001','K2','hide if not fit, no clip, center(<b>10</b>)');
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(10);
		AddBar(h,'Task','12/28/2000','1/8/2001','K3','hide if not fit, no clip, inside, left(<b>9</b>)');
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(9);
		h := AddItem('no clip, inside, outside (12-14)');
		AddBar(h,'Task','12/28/2000','1/8/2001','K1','no clip, inside, outside, right(<b>14</b>)');
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(14);
		AddBar(h,'Task','12/28/2000','1/8/2001','K2','no clip, inside, outside, center(<b>13</b>)');
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(13);
		AddBar(h,'Task','12/28/2000','1/8/2001','K3','no clip, inside, outside, left(<b>12</b>)');
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(12);
		h := AddItem('no clip, outside (16-18)');
		AddBar(h,'Task','12/30/2000','1/6/2001','K1','no clip, outside, right(<b>18</b>)');
		ItemBar[h,'K1',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
		AddBar(h,'Task','12/30/2000','1/6/2001','K2','no clip, outside, center(<b>17</b>)');
		ItemBar[h,'K2',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(17);
		AddBar(h,'Task','12/30/2000','1/6/2001','K3','no clip, outside, left(<b>16</b>)');
		ItemBar[h,'K3',EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(16);
	end;
	EndUpdate();
end

// DateChange event - Occurs when the first visible date is changed.
procedure TForm1.G2antt1DateChange(ASender: TObject; );
begin
	with G2antt1 do
	begin
		Chart.FirstVisibleDate := '1/2/2001';
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Start')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.LeftAlignment;
	end;
	with (IUnknown(Columns.Add('End')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.RightAlignment;
	end;
	with Chart do
	begin
		FirstVisibleDate := '1/2/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
		ColumnsFormatLevel := '1[bg=12500670]:52,|,2[bg=12500670]:52';
		ColumnsTransparent := 50;
		ScrollBar := False;
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Task','1/4/2001','1/8/2001',Null,Null);
	end;
	EndUpdate();
end

// BarResizing event - Occurs when a bar is moving or resizing.
procedure TForm1.G2antt1BarResizing(ASender: TObject; Item : HITEM;Key : OleVariant);
begin
	with G2antt1 do
	begin
		with Items do
		begin
			ItemBar[Item,OleVariant(Key),EXG2ANTTLib_TLB.exBarMinStart] := '1/1/2001';
			ItemBar[Item,OleVariant(Key),EXG2ANTTLib_TLB.exBarMaxEnd] := '2/1/2001';
		end;
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Start')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.LeftAlignment;
	end;
	with (IUnknown(Columns.Add('End')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.RightAlignment;
	end;
	with Chart do
	begin
		FirstVisibleDate := '1/2/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
		ColumnsFormatLevel := '1[bg=12500670]:52,|,2[bg=12500670]:52';
		ColumnsTransparent := 50;
		ScrollRange[EXG2ANTTLib_TLB.exStartDate] := '1/1/2001';
		ScrollRange[EXG2ANTTLib_TLB.exEndDate] := '1/31/2001';
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Task','1/4/2001','1/8/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Start')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.LeftAlignment;
	end;
	with (IUnknown(Columns.Add('End')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.RightAlignment;
	end;
	with Chart do
	begin
		FirstVisibleDate := '1/2/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
		ColumnsFormatLevel := '1[bg=12500670]:52,|,2[bg=12500670]:52';
		ColumnsTransparent := 50;
		ScrollRange[EXG2ANTTLib_TLB.exStartDate] := '1/1/2001';
		ScrollRange[EXG2ANTTLib_TLB.exEndDate] := '1/31/2001';
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Task','1/4/2001','1/8/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXG2ANTTLib_TLB.exLinkStartPos] := OleVariant(0);
	end;
	EndUpdate();
	with (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print'))) as EXPRINTLib_TLB.Print) do
	begin
		OutputDebugString( Version );
		Foreground := -1;
		PrintExt := (IUnknown(G2antt1.DefaultInterface) as EXG2ANTTLib_TLB.G2antt);
		Preview();
	end;
end

with G2antt1 do
begin
	with Chart do
	begin
		FirstWeekDay := LocFirstWeekDay;
		MonthNames := LocMonthNames;
		WeekDays := LocWeekDays;
		AMPM := LocAMPM;
		LevelCount := 2;
		PaneWidth[False] := 0;
		UnitScale := EXG2ANTTLib_TLB.exWeek;
		UnitWidth := 32;
		FirstVisibleDate := '1/1/2016';
		AdjustLevelsToBase := True;
		WeekNumberAs := EXG2ANTTLib_TLB.exISO8601WeekNumber;
		ShowNonworkingDates := False;
		ScrollTo(FirstVisibleDate,OleVariant(1));
	end;
end

// ChartEndChanging event - Occurs after the chart has been changed.
procedure TForm1.G2antt1ChartEndChanging(ASender: TObject; Operation : BarOperationEnum);
begin
	with G2antt1 do
	begin
		with Chart do
		begin
			OutputDebugString( 'FirstVisibleDate' );
			OutputDebugString( FirstVisibleDate );
			OutputDebugString( 'UnitScale' );
			OutputDebugString( UnitScale );
			OutputDebugString( 'UnitWidth' );
			OutputDebugString( UnitWidth );
		end;
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		LevelCount := 3;
		AllowResizeChart := Integer(EXG2ANTTLib_TLB.exAllowChangeUnitScale) Or Integer(EXG2ANTTLib_TLB.exAllowResizeChartMiddle) Or Integer(EXG2ANTTLib_TLB.exAllowResizeChartHeader);
		PaneWidth[False] := 0;
		MarkTodayColor := BackColor;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	with Chart do
	begin
		PaneWidth[False] := 0;
		FirstVisibleDate := '1/1/2016';
		LevelCount := 2;
		FirstWeekDay := EXG2ANTTLib_TLB.exMonday;
		UnitScale := EXG2ANTTLib_TLB.exWeek;
		ScrollTo(FirstVisibleDate,OleVariant(1));
		DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
		AdjustLevelsToBase := True;
		Level[0].Label := '<c><%mmmm%>';
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(3,'c:\exontrol\images\normal.ebn');
		Add(4,'c:\exontrol\images\pushed.ebn');
		Add(1,'CP:3 -4 -4 4 4');
		Add(2,'CP:4 -4 -4 4 4');
	end;
	LinesAtRoot := EXG2ANTTLib_TLB.exGroupLinesAtRoot;
	HasButtons := EXG2ANTTLib_TLB.exCustom;
	HasButtonsCustom[False] := 16777216;
	HasButtonsCustom[True] := 33554432;
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Null,'Child');
	end;
	EndUpdate();
end

// AllowAutoDrag event - Occurs when the user drags the item between InsertA and InsertB as child of NewParent.
procedure TForm1.G2antt1AllowAutoDrag(ASender: TObject; Item : HITEM;NewParent : HITEM;InsertA : HITEM;InsertB : HITEM;var Cancel : WordBool);
begin
	with G2antt1 do
	begin
		with Items do
		begin
			OutputDebugString( 'NewParent' );
			OutputDebugString( CellCaption[OleVariant(NewParent),OleVariant(0)] );
			OutputDebugString( 'After' );
			OutputDebugString( CellCaption[OleVariant(InsertA),OleVariant(0)] );
			OutputDebugString( 'Before' );
			OutputDebugString( CellCaption[OleVariant(InsertB),OleVariant(0)] );
		end;
		Cancel := True;
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	AutoDrag := EXG2ANTTLib_TLB.exAutoDragPositionAny;
	LinesAtRoot := EXG2ANTTLib_TLB.exNoLinesAtRoot;
	HasLines := EXG2ANTTLib_TLB.exThinLine;
	ShowFocusRect := False;
	Columns.Add('Task');
	with Chart do
	begin
		ShowNonworkingDates := False;
		FirstVisibleDate := '12/29/2000';
		PaneWidth[False] := 96;
		LevelCount := 2;
	end;
	with Items do
	begin
		h := AddItem('Group 1');
		ItemDivider[h] := 0;
		ItemBold[h] := True;
		h1 := InsertItem(h,Null,'Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := InsertItem(h,Null,'Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXG2ANTTLib_TLB.exLinkText] := 'L1';
		h3 := InsertItem(h,Null,'Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
		Link['L2',EXG2ANTTLib_TLB.exLinkText] := 'L2';
		ExpandItem[h] := True;
		h := AddItem('Group 2');
		ItemBold[h] := True;
		ItemDivider[h] := 0;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Start')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.LeftAlignment;
	end;
	with (IUnknown(Columns.Add('End')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.RightAlignment;
	end;
	with Chart do
	begin
		FirstVisibleDate := '1/2/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
		ColumnsFormatLevel := '1[bg=12500670]:52,|,2[bg=12500670]:52';
		ColumnsTransparent := 50;
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Task','1/4/2001','1/8/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Start')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.LeftAlignment;
	end;
	with (IUnknown(Columns.Add('End')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.RightAlignment;
	end;
	with Chart do
	begin
		FirstVisibleDate := '1/2/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
		ColumnsFormatLevel := '1[bg=12500670]:52,|,2[bg=12500670]:52';
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Task','1/4/2001','1/8/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Start')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.LeftAlignment;
		Def[EXG2ANTTLib_TLB.exCellBackColor] := OleVariant(12500670);
	end;
	with (IUnknown(Columns.Add('End')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.RightAlignment;
		Def[EXG2ANTTLib_TLB.exCellBackColor] := OleVariant(12500670);
	end;
	with Chart do
	begin
		FirstVisibleDate := '12/31/2000';
		LevelCount := 2;
		PaneWidth[False] := 48;
		ColumnsFormatLevel := '1:52,|,2:52';
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Task','1/4/2001','1/8/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	AntiAliasing := True;
	with Chart do
	begin
		FirstVisibleDate := '12/24/2000';
		PaneWidth[False] := 96;
		LevelCount := 2;
		UnitScale := EXG2ANTTLib_TLB.exDay;
		with Bars.Item['Task'] do
		begin
			Pattern := EXG2ANTTLib_TLB.exPatternSolid;
			Color := $0;
			Height := 16;
		end;
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','12/25/2000','1/5/2001','1','<fgcolor=FFFFFF>Center');
		ItemBar[h,'1',EXG2ANTTLib_TLB.exBarExtraCaption] := 'left';
		ItemBar[h,'1',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(16);
		h := AddItem('Task 2');
		AddBar(h,'Task','1/5/2001','1/16/2001','1','<fgcolor=FFFFFF>Center');
		h := AddItem('Task 3');
		AddBar(h,'Task','1/16/2001','1/26/2001','2','Center');
		ItemBar[h,'2',EXG2ANTTLib_TLB.exBarExtraCaption] := 'right';
		ItemBar[h,'2',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(18);
	end;
	with Chart.Notes do
	begin
		with Add('1S',OleVariant(G2antt1.Items.ItemByIndex[1]),'1','<%m3%>-<%d%>') do
		begin
			PartShadow[EXG2ANTTLib_TLB.exNoteEnd] := False;
			PartHOffset[EXG2ANTTLib_TLB.exNoteEnd] := -16;
			PartVOffset[EXG2ANTTLib_TLB.exNoteEnd] := 4;
		end;
		with Add('1F',OleVariant(G2antt1.Items.ItemByIndex[1]),'1','<%m3%>-<%d%>') do
		begin
			RelativePosition := OleVariant(1);
			PartShadow[EXG2ANTTLib_TLB.exNoteEnd] := False;
			PartHOffset[EXG2ANTTLib_TLB.exNoteEnd] := 16;
			PartVOffset[EXG2ANTTLib_TLB.exNoteEnd] := -4;
		end;
	end;
	var_CopyTo := CopyTo['C:\Temp\Preview.pdf|11.69 in x 16.53 in||single'];
	OutputDebugString( 'Look for C:\Temp\Preview.pd file.' );
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	AntiAliasing := True;
	with Chart do
	begin
		FirstVisibleDate := '12/24/2000';
		PaneWidth[False] := 96;
		LevelCount := 2;
		UnitScale := EXG2ANTTLib_TLB.exDay;
		with Bars.Item['Task'] do
		begin
			Pattern := EXG2ANTTLib_TLB.exPatternSolid;
			Color := $0;
			Height := 16;
		end;
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','12/25/2000','1/5/2001','1','<fgcolor=FFFFFF>Center');
		ItemBar[h,'1',EXG2ANTTLib_TLB.exBarExtraCaption] := 'left';
		ItemBar[h,'1',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(16);
		h := AddItem('Task 2');
		AddBar(h,'Task','1/5/2001','1/16/2001','1','<fgcolor=FFFFFF>Center');
		h := AddItem('Task 3');
		AddBar(h,'Task','1/16/2001','1/26/2001','2','Center');
		ItemBar[h,'2',EXG2ANTTLib_TLB.exBarExtraCaption] := 'right';
		ItemBar[h,'2',EXG2ANTTLib_TLB.exBarExtraCaptionHAlign] := OleVariant(18);
	end;
	with Chart.Notes do
	begin
		with Add('1S',OleVariant(G2antt1.Items.ItemByIndex[1]),'1','<%m3%>-<%d%>') do
		begin
			PartShadow[EXG2ANTTLib_TLB.exNoteEnd] := False;
			PartHOffset[EXG2ANTTLib_TLB.exNoteEnd] := -16;
			PartVOffset[EXG2ANTTLib_TLB.exNoteEnd] := 4;
		end;
		with Add('1F',OleVariant(G2antt1.Items.ItemByIndex[1]),'1','<%m3%>-<%d%>') do
		begin
			RelativePosition := OleVariant(1);
			PartShadow[EXG2ANTTLib_TLB.exNoteEnd] := False;
			PartHOffset[EXG2ANTTLib_TLB.exNoteEnd] := 16;
			PartVOffset[EXG2ANTTLib_TLB.exNoteEnd] := -4;
		end;
	end;
	var_CopyTo := CopyTo['C:\Temp\Preview.pdf|11.69 in x 16.53 in'];
	OutputDebugString( 'Look for C:\Temp\Preview.pd file.' );
	EndUpdate();
end

// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
procedure TForm1.G2antt1AddGroupItem(ASender: TObject; Item : HITEM);
begin
	with G2antt1 do
	begin
		with Items do
		begin
			ItemBold[Item] := True;
			AddBar(Item,'Summary',CellValue[OleVariant(Item),OleVariant(1)],CellValue[OleVariant(Item),OleVariant(2)],Null,Null);
			DefineSummaryBars(Item,'',-3,'');
		end;
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	AllowGroupBy := True;
	SortBarVisible := True;
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Tasks');
		with (IUnknown(Add('Start')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
			AllowGroupBy := False;
		end;
		with (IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
			AllowGroupBy := False;
		end;
	end;
	with Chart do
	begin
		FirstVisibleDate := '9/20/2006';
		LevelCount := 2;
		PaneWidth[False] := 256;
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('1'),'Task','9/21/2006','9/27/2006',Null,Null);
		AddBar(AddItem('1'),'Task','9/22/2006','9/28/2006',Null,Null);
		AddBar(AddItem('2'),'Task','9/22/2006','9/28/2006',Null,Null);
		AddBar(AddItem('2'),'Task','9/23/2006','9/29/2006',Null,Null);
		AddBar(AddItem('3'),'Task','9/25/2006','9/29/2006',Null,Null);
		AddBar(AddItem('3'),'Task','9/26/2006','9/30/2006',Null,Null);
	end;
	with (IUnknown(Columns.Add('Tasks - Group')) as EXG2ANTTLib_TLB.Column) do
	begin
		Visible := False;
		FormatColumn := '%0 in (1,2) ? `1 - 2` : `3 -`';
		SortOrder := EXG2ANTTLib_TLB.SortAscending;
	end;
	EndUpdate();
end

// RClick event - Fired when right mouse button is clicked
procedure TForm1.G2antt1RClick(ASender: TObject; );
begin
	with G2antt1 do
	begin
		Columns.Item['Start'].ShowFilter('-1,-1,128,128');
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	SortBarVisible := True;
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Tasks');
		with (IUnknown(Add('Start')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
			DisplayFilterDate := True;
			DisplayFilterPattern := False;
			FilterList := Integer(EXG2ANTTLib_TLB.exShowExclude) Or Integer(EXG2ANTTLib_TLB.exShowCheckBox);
			Visible := False;
		end;
		with (IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
			DisplayFilterDate := True;
			DisplayFilterPattern := False;
			Visible := False;
			FilterList := Integer(EXG2ANTTLib_TLB.exShowExclude) Or Integer(EXG2ANTTLib_TLB.exShowCheckBox);
			Visible := False;
		end;
	end;
	with Chart do
	begin
		FirstVisibleDate := '9/20/2006';
		LevelCount := 2;
		PaneWidth[False] := 128;
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','9/21/2006','9/27/2006',Null,Null);
		AddBar(AddItem('Task 2'),'Task','9/22/2006','9/28/2006',Null,Null);
		AddBar(AddItem('Task 3'),'Task','9/22/2006','9/28/2006',Null,Null);
		AddBar(AddItem('Task 4'),'Task','9/23/2006','9/29/2006',Null,Null);
		AddBar(AddItem('Task 5'),'Task','9/25/2006','9/29/2006',Null,Null);
		AddBar(AddItem('Task 6'),'Task','9/26/2006','9/30/2006',Null,Null);
	end;
	EndUpdate();
end

// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
procedure TForm1.G2antt1AddGroupItem(ASender: TObject; Item : HITEM);
begin
	with G2antt1 do
	begin
		with Items do
		begin
			ItemBackColor[Item] := $f0f0f0;
			G2antt1.Chart.ItemBackColor[Item] := $f0f0f0;
			ItemDividerLine[Item] := EXG2ANTTLib_TLB.EmptyLine;
			AddBar(Item,'Summary',CellValue[OleVariant(Item),OleVariant(1)],CellValue[OleVariant(Item),OleVariant(2)],Null,Null);
			DefineSummaryBars(Item,'',-3,'');
		end;
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	AllowGroupBy := True;
	SortBarVisible := True;
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Tasks');
		with (IUnknown(Add('Start')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
			AllowGroupBy := False;
		end;
		with (IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
			AllowGroupBy := False;
		end;
	end;
	with Chart do
	begin
		FirstVisibleDate := '9/20/2006';
		LevelCount := 2;
		PaneWidth[False] := 256;
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','9/21/2006','9/27/2006',Null,Null);
		AddBar(AddItem('Task 1'),'Task','9/22/2006','9/28/2006',Null,Null);
		AddBar(AddItem('Task 2'),'Task','9/22/2006','9/28/2006',Null,Null);
		AddBar(AddItem('Task 2'),'Task','9/23/2006','9/29/2006',Null,Null);
		AddBar(AddItem('Task 3'),'Task','9/25/2006','9/29/2006',Null,Null);
		AddBar(AddItem('Task 3'),'Task','9/26/2006','9/30/2006',Null,Null);
	end;
	Columns.Item[OleVariant(0)].SortOrder := EXG2ANTTLib_TLB.SortAscending;
	EndUpdate();
end

// SelectionChanged event - Fired after a new item has been selected.
procedure TForm1.G2antt1SelectionChanged(ASender: TObject; );
begin
	with G2antt1 do
	begin
		with Items do
		begin
			OutputDebugString( CellCaption[OleVariant(FocusItem),OleVariant(0)] );
			OutputDebugString( ItemBar[FocusItem,'',EXG2ANTTLib_TLB.exBarWorkingCount] );
		end;
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	SelBackColor := RGB(142,190,255);
	SelForeColor := RGB(0,0,0);
	with Chart do
	begin
		PaneWidth[False] := 96;
		FirstVisibleDate := '1/1/2002';
		with Bars.Add('Task:Split') do
		begin
			Shortcut := 'Task';
			Def[EXG2ANTTLib_TLB.exBarCaption] := '<%=%258%><font ;6><off 3>w/units';
			Def[EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
		end;
		SelBackColor := G2antt1.SelBackColor;
	end;
	Columns.Add('Task');
	with Items do
	begin
		h := AddItem('Task A');
		AddBar(h,'Task','1/2/2002','1/9/2002',Null,Null);
		h := AddItem('Task B');
		AddBar(h,'Task','1/3/2002','1/8/2002',Null,Null);
		SelectItem[h] := True;
		h := AddItem('Task C');
		AddBar(h,'Task','1/4/2002','1/5/2002',Null,Null);
	end;
	EndUpdate();
end

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.G2antt1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		h := ItemFromPoint[-1,-1,c,hit];
		d := Chart.DateFromPoint[-1,-1];
		OutputDebugString( d );
		OutputDebugString( Chart.IsNonworkingDate[OleVariant(d),OleVariant(h)] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('NonWorking');
	with Chart do
	begin
		FirstWeekDay := EXG2ANTTLib_TLB.exMonday;
		FirstVisibleDate := '1/24/2008';
		PaneWidth[False] := 64;
		LevelCount := 2;
	end;
	with Items do
	begin
		h := AddItem('Default');
		h := AddItem('January');
		ItemNonworkingUnits[h,OleVariant(False)] := 'month(value) = 1';
		h := AddItem('February, Saturday, Sunday');
		ItemNonworkingUnits[h,OleVariant(False)] := 'month(value) = 2 or (weekday(value) = 0 or weekday(value) = 6)';
		h := AddItem('Sunday');
		ItemNonworkingUnits[h,OleVariant(False)] := 'weekday(value) = 0';
	end;
	EndUpdate();
end

// Change event - Occurs when the user changes the cell's content.
procedure TForm1.G2antt1Change(ASender: TObject; Item : HITEM;ColIndex : Integer;var NewValue : OleVariant);
begin
	with G2antt1 do
	begin
		Refresh();
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 64;
		with Bars.Item['Task'] do
		begin
			Def[EXG2ANTTLib_TLB.exBarCaption] := '<fgcolor=808080><%=%C0%>';
			Def[EXG2ANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
		end;
	end;
	with (IUnknown(Columns.Add('Task')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.DropDownListType;
		AddItem(1,'Aka',Null);
		AddItem(2,'Baka',Null);
		AddItem(3,'Taka',Null);
	end;
	with Items do
	begin
		AddBar(AddItem(OleVariant(1)),'Task','1/2/2001','1/5/2001',Null,Null);
		AddBar(AddItem(OleVariant(2)),'Task','1/3/2001','1/6/2001',Null,Null);
		AddBar(AddItem(OleVariant(3)),'Task','1/4/2001','1/7/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Effort')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(21);
		Editor.EditType := EXG2ANTTLib_TLB.SpinType;
	end;
	with Chart do
	begin
		LevelCount := 2;
		NonworkingDays := 0;
		PaneWidth[False] := 96;
		FirstVisibleDate := '6/20/2005';
		HistogramVisible := True;
		HistogramHeight := 128;
		HistogramView := EXG2ANTTLib_TLB.exHistogramAllItems;
		with Bars.Item['Task'] do
		begin
			HistogramPattern := Pattern;
			HistogramType := EXG2ANTTLib_TLB.exHistOverload;
			HistogramCriticalValue := 3;
			ShowHistogramValues := 'value>3?255:1';
			HistogramItems := -11;
			HistogramGridLinesColor := $c0c0c0;
			HistogramRulerLinesColor := $10000;
			FormatHistogramValues := '(value format `0`) + ` units`';
		end;
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','6/21/2005','6/23/2005',Null,Null);
		CellValue[OleVariant(h1),OleVariant(1)] := OleVariant(6.79);
		h1 := AddItem('Task 2');
		AddBar(h1,'Task','6/24/2005','6/26/2005',Null,Null);
		CellValue[OleVariant(h1),OleVariant(1)] := OleVariant(3.19);
		h1 := AddItem('Task 3');
		AddBar(h1,'Task','6/27/2005','6/29/2005',Null,Null);
		CellValue[OleVariant(h1),OleVariant(1)] := OleVariant(2);
		h1 := AddItem('Task 4');
		AddBar(h1,'Task','6/30/2005','7/2/2005',Null,Null);
		CellValue[OleVariant(h1),OleVariant(1)] := OleVariant(1);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 24;
	HeaderHeight := DefaultItemHeight;
	GridLineStyle := EXG2ANTTLib_TLB.exGridLinesSolid;
	DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
	LinesAtRoot := EXG2ANTTLib_TLB.exNoLinesAtRoot;
	BackColorLevelHeader := BackColor;
	with Chart do
	begin
		DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
		GridLineStyle := EXG2ANTTLib_TLB.exGridLinesSolid;
		PaneWidth[False] := 128;
		LevelCount := 2;
		FirstVisibleDate := OleVariant(0);
		NonworkingDays := 0;
		UnitWidth := 36;
		with Level[0] do
		begin
			Unit := EXG2ANTTLib_TLB.exDay;
			Count := 6;
			Alignment := EXG2ANTTLib_TLB.CenterAlignment;
			Label := '<%i%>';
			FormatLabel := '''<b>'' + ( (value / 6)  array (''Jan'',''Feb'',''Mar'',''Apr'',''May'',''Jun'',''Jul'',''Aug'',''Sep'',''Oct'',''Nov'',''Dec'') ) + ''-16''';
		end;
		with Level[1] do
		begin
			Label := '<%i%>';
			FormatLabel := '1 + value mod 6 + ` `';
			Alignment := EXG2ANTTLib_TLB.RightAlignment;
		end;
		AdjustLevelsToBase := True;
		ScrollRange[EXG2ANTTLib_TLB.exStartDate] := OleVariant(0);
		ScrollRange[EXG2ANTTLib_TLB.exEndDate] := OleVariant(95);
		with Bars.Item['Task'] do
		begin
			Height := 15;
			Color := $b4d5fc;
			Pattern := EXG2ANTTLib_TLB.exPatternSolid;
			Def[EXG2ANTTLib_TLB.exBarCaption] := 'date blocking';
		end;
	end;
	Columns.Add('Company');
	with Items do
	begin
		h := AddItem('ABC Company');
		ItemBackColor[h] := $f0f0f0;
		G2antt1.Chart.ItemBackColor[h] := $f0f0f0;
		hChild := InsertItem(h,Null,'line 1');
		AddBar(hChild,'Task',OleVariant(0),OleVariant(3),Null,Null);
		hChild := InsertItem(h,Null,'line 2');
		AddBar(hChild,'Task',OleVariant(3),OleVariant(5),'A',Null);
		AddBar(hChild,'Task',OleVariant(7),OleVariant(10),'B',Null);
		hChild := InsertItem(h,Null,'line 3');
		AddBar(hChild,'Task',OleVariant(5),OleVariant(8),'A',Null);
		AddBar(hChild,'Task',OleVariant(9),OleVariant(12),'B',Null);
		ExpandItem[h] := True;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 32;
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAADhABcMIQAAYAQGKIYBkAKBQAGaAoDDUMQyQwAAyDAK8EwsACEIrAAJoaAAPoJRDGMTvfIgARIf6MIRAeCYFDAJQtDCMICwSKsXBaGwBJYGGaYED' + 
	'GHQATxKM7wGBcEyLDSgXZDQRAAoqTI/SICEIlAZJRjoOo5DJGGQmChkQhNVzGQzQSJFDTNAaEAwidDJCoOGgkBw7NwXFaNZznBK7LpvK5HNrie55XzAcj3dbmAYJQzBJ' + 
	'LxKSIDwCd6NXrCOJ5HhWDzjQjJMozLC8YiPG6fZRbeT4ToGNdXYhJWiyLiFeYtVzSMj1fD9Ir/EakbLtey4Lq2A53RzdHThSQpCwPA4BgIA=');
		Add(2,'gBFLBCJwBAEHhEJAADhABcMIQAAYAQGKIYBkAKBQAGaAoDDUMQyQwAAyDAK8EwsACEIrAAJoaAAPoJRDGMTvfIgARIf6MIRAeCYFDAJQtDCMICwSKsXBaGwBJYGGaYED' + 
	'GHQATxKM7wGBcEyLDSgXZDQRAAoqTI/SICEIlAZJRjoOo5DJGGQmChkQhNVzGQzQSJFDTNAaEAwidDJCoOGgkBw7NrXHZ9YwTOC5IDke67cr2J53XZAd4QTb2Cz7QC8Q' + 
	'AvDA7awafM1MSuHIcOw/AqTYDkTq4XjODYhTDEc4zPLcFx/I6haBoWCSLi+T5VVrRMo1TKtRxnNaubZqO5aRrGe5NW6EXThSQpCr+f4BgIA=');
		Add(3,'gBFLBCJwBAEHhEJAADhABcMIQAAYAQGKIYBkAKBQAGaAoDDUMQyQwAAyDAK8EwsACEIrAAJoaAAPoJRDGMTvfIgARIf6MIRAeCYFDAJQtDCMICwSKsXBaGwBJYGGaYED' + 
	'GHQATxKM7wGBcEyLDSgXZDQRAAoqTI/SICEIlAZJRjoOo5DJGGQmChkQhNVzGQzQSJFDTNAaEAwidDJCoOGgkBw7NwXFaNZznBK7LpvK5HNrie55XxfV6YBa8B4JPaEZ' + 
	'LwLB7dwaf6IQLiWLYHiAAYZRKTcxlDI8AwvFaaZjnWA5ZaOMZBU7RNRyHR9IyTDaWaTqeqbHIuJ4FUzaNY2fZrOz2F6FAA6cKSFIWFYVAMBA');
		Add(4,'gBFLBCJwBAEHhEJAADhABb8IQAAYAQGKIYBkAKBQAGaAoDDUMQyQwAAyDAK8EwsACEIrAAJoaAAPoJRDGMTvfIgARIf6MIRAeCYFDAJQtDCMICwSKsXBaGwBJYGGaYED' + 
	'GHQATxKM7wGBcEyLDSgXZDQRAAoqTI/SICEIlAZJRjoOo5DJGGQmChkQhNVzGQzQSJFDTNAaEAwidDJCoOGgkBw7NwXFaNZznBK7LpvK5HNrie55XxfV6YBa8B4JPaEZ' + 
	'LwLB7dwaf6IQLiWLYHiAAYBIbJI5yeb5Hx3HqfZjbeSxVoML43SzHcByGRcTwzC6pYjrGoZJpWZ4ZQrbNR3DZ8VzzNTrQxIUhYVhUAkB');
		RenderType := -16777216;
	end;
	with Chart do
	begin
		PaneWidth[False] := 164;
		FirstVisibleDate := '1/1/2001';
		NonworkingDaysColor := $f0f0f0;
		NonworkingDaysPattern := EXG2ANTTLib_TLB.exPatternBDiagonal;
		with Bars.Item['Task'] do
		begin
			Height := 17;
			Color := $ffffff;
			Pattern := EXG2ANTTLib_TLB.exPatternSolid;
			Def[EXG2ANTTLib_TLB.exBarFrameColor] := OleVariant(1);
		end;
	end;
	Columns.Add('Column');
	with Items do
	begin
		AddBar(AddItem('Task'),'Task','1/2/2001','1/6/2001','',Null);
		h := AddItem('Task+Rhombus(red)');
		AddBar(h,'Task','1/2/2001','1/7/2001','',Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExt] := 'none[(100%-11,50%-6,11,11),back=0x10000FF]';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExtInflate] := ',,5';
		h := AddItem('Rhombus(red)+Task');
		AddBar(h,'Task','1/2/2001','1/8/2001','',Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExt] := 'none[(0,50%-6,11,11),back=0x10000FF]';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExtInflate] := '-5';
		h := AddItem('Task(yellow)+Rhombus(blue)');
		AddBar(h,'Task','1/2/2001','1/9/2001','',Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExt] := 'none[(100%-11,50%-6,11,11),back=0x1FF0000]';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExtInflate] := ',,5';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarColor] := OleVariant(65535);
		h := AddItem('Rhombus(blue)+Task(yellow)');
		AddBar(h,'Task','1/2/2001','1/8/2001','',Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExt] := 'none[(0,50%-6,11,11),back=0x1FF0000]';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExtInflate] := '-5';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarColor] := OleVariant(65535);
		h := AddItem('TriangleUp(white)+Task');
		AddBar(h,'Task','1/2/2001','1/7/2001','',Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExt] := 'none[(0,50%-6,11,11),back=0x2FFFFFF]';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExtInflate] := '-5';
		h := AddItem('TriangleUp(blue)+Task(magenta)+TriangleDown(red)');
		AddBar(h,'Task','1/2/2001','1/6/2001','',Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExt] := 'none[(0,50%-6,11,11),back=0x02FF0000],none[(100%-11,50%-6,11,11),back=0x030000FF]';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExtInflate] := '-5,0,5,0';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarColor] := OleVariant(16744703);
		h := AddItem('Rhombus+Task+TriangleDown');
		AddBar(h,'Task','1/2/2001','1/7/2001','',Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExt] := 'none[(0,50%-6,11,11),back=0x01FF0000],none[(100%-11,50%-6,11,11),back=0x030000FF]';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExtInflate] := '-5, 0,5,0';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarColor] := OleVariant(16744448);
		h := AddItem('Rhombus+Task+TriangleDown');
		AddBar(h,'Task','1/2/2001','1/8/2001','',Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExt] := 'none[(50%-6,0,11,11),back=0x01FF0000],none[(50%-6,100%-11,11,11),back=0x010000FF]';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExtInflate] := '0,-5,0,5';
		h := AddItem('Task+Star');
		AddBar(h,'Task','1/2/2001','1/9/2001','',Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExt] := 'none[(100%-11,0,11,11),back=0x4FFFFFF]';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExtInflate] := OleVariant(5);
		h := AddItem('Star+Task');
		AddBar(h,'Task','1/2/2001','1/8/2001','',Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExt] := 'none[(0,100%-11,11,11),back=0x04FFFFFF]';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExtInflate] := OleVariant(5);
		h := AddItem('Task+Star');
		AddBar(h,'Task','1/2/2001','1/7/2001','',Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExt] := 'none[(100%-11,0,11,11),back=0x4FFFFFF]';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarBackgroundExtInflate] := '0,-6,14';
	end;
	EndUpdate();
end